home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat14 / log / log.rexx < prev    next >
OS/2 REXX Batch file  |  1992-09-28  |  4KB  |  158 lines
  1. /* AREXX SCRIPT log.rexx
  2.  
  3.    Log.rexx crée et maintient un fichier contenant les temps de mise en 
  4.    route et d'arrêt de votre système ainsi que les 'reset' et 'guru' 
  5.    accompagnés de renseignements, si nécessaire et désiré. Il fait tout ça
  6.    avec évidemment un peu de votre aide!.
  7.  
  8.    Le format de ce fichier, appelé 'Utilisations' est le suivant:
  9.  
  10.      ...
  11.      Sa_26-Sep_09:12 - Mise en route.
  12.      Sa_26-Sep_13:45 - Guru: coupable inconnu!
  13.      ...
  14.      ...
  15.      Sa_26-Sep_15:28 - Reset: *&%£(&* a encore planté!
  16.      Su_27-Sep_00:51 - Arrêt système.
  17.      ----------------------------------
  18.      Su_27-Sep_08:23 - Mise en route.
  19.      ...
  20.  
  21.    Voir fichier de documentation pour utilisation.
  22.       
  23.    Ecris par Gérard Cornu  (26-Sep-92)
  24.    
  25.    Modifiez la partie de la ligne suivante pour indiquer le chemin ou vous
  26.    désirez que le fichier 'Utilisations' se trouve. NE PAS INCLURE LE NOM
  27.    DU FICHIER.
  28.   \                                                                       /
  29.    \_______                   ___________________________________________/ 
  30.            \  CETTE PARTIE   /
  31.             \               /                                              */
  32. logonpath = "DH0:temp/logon/"     /* <---- editer ici *********************
  33.                            ^
  34.                            | 
  35.                   ne pas oublier / or :
  36.                  ~~~~~~~~~~~~~~~~~~~~~~~
  37. */                  
  38.  
  39. arg switch
  40.  
  41. logonfile = "Utilisations"
  42.  
  43. hil = ""
  44. nor = ""
  45.  
  46. option results  
  47.  
  48. day  = left(date('weekday'),2)
  49. date = left(space(date(), 1, '-'), 6)
  50. time = left(time(), 5)
  51. datetime = day||'_'||date||'_'||time
  52.  
  53. if switch = 'ON' then do
  54.    say "c" /* clear screen */
  55.    query = getbootup()
  56. end
  57. else if switch = 'OFF' then do 
  58.    query = " - Arrêt système."
  59. end   
  60.    
  61. if(~exists(logonpath||logonfile)) then
  62.    mode = 'W'
  63. else mode = "A"
  64.  
  65. if ~open(datefile, logonpath||logonfile,mode) then do
  66.    say ""
  67.    say "Impossible d'ouvrir "||logonpath||logonfile|| "..!!??."
  68.    say ""
  69.    exit 20
  70. end   
  71.  
  72. if mode = "W" then do
  73.    writeln(datefile, " ***        Fichier crée par log.rexx      ***") 
  74.    writeln(datefile, " ***  (écris par Gérard Cornu (26-Sep-92)  ***")
  75.    writeln(datefile, "")
  76. end   
  77.  
  78. writeln(datefile, datetime||query)
  79. if switch = 'OFF' then do
  80.    writeln(datefile, "----------------------------------")
  81. end   
  82.  
  83. close(datefile)
  84.  
  85. say "c"
  86.  
  87. exit 0
  88.  
  89. /*--------------------------------- E N D --------------------------------*/   
  90.  
  91. /*--------------------------- getbootup()----------------------------*/
  92. getbootup:
  93.            
  94. say "c"
  95. say ""
  96. say "         Comme vous vous en doutez (;-),  votre  système est en train"
  97. say "         de (re)démarrer! Mon seul but étant de mainteneir un fichier"
  98. say "         à propos de ce fait,  je  vous serais très  reconnaissant de"
  99. say "         m'aider en me donnant quelques renseignements."
  100. say ""
  101. say "         A quoi est dû ce (re)démarrage:"
  102. say ""
  103. say hil||"                         N"||nor||" - Mise en route normale"
  104. say 
  105. say hil||"                         R"||nor||" - Reset (ctrl-Amiga-Amiga)"
  106. say
  107. say hil||"                         G"||nor||" - Guru"
  108. say
  109. say hil||"                         C"||nor||" - Coupure de courant"
  110. say
  111. say hil||"                         V"||nor||" - Crainte de virus"
  112. say
  113. say
  114. say
  115.  
  116. bootup = ""
  117.  
  118. do while ((bootup ~= "N") ^ (bootup ~= "C") ^ (bootup ~= "V"),
  119.         ^ (bootup ~= "G") ^ (bootup ~= "R"))
  120.    say ""
  121.    writech(stdout, "AA         S.V.P. entrez "||hil||"n"||nor||", "||hil||"r"||nor,
  122.    ", "||hil||"g"||nor", "||hil||"c"||nor||" or "||hil||"v"||nor||" ? ")
  123.    pull bootup
  124. end
  125.  
  126. select
  127.    when bootup = "N" then query = " - Mise en route." 
  128.    when bootup = "C" then query = " - Coupure courant: "
  129.    when bootup = "V" then query = " - Crainte de virus: "   
  130.    when bootup = "G" then query = " - Guru: "
  131.    when bootup = "R" then query = " - Reset: "
  132.    otherwise exit(20)
  133. end
  134.  
  135. if bootup = "C" | bootup = "V" | bootup = 'G' | bootup = 'R' then do
  136.    query = query||getmoreinfo(query)
  137. end
  138. return query
  139.  
  140. /*------------------------ getmoreinfo() ------------------------------*/
  141. getmoreinfo:
  142.  
  143. arg item
  144.  
  145. say 
  146. say "         S'il vous plait, donnez moi quelque renseignement"
  147. say "         à propos de ce(tte) "||item
  148. say
  149. writech(stdout, "         (ou [entrée] si aucun) ? ")
  150.  
  151. parse pull moreinfo
  152.  
  153. if moreinfo = "" then moreinfo = "???"
  154.  
  155. return moreinfo
  156. /*------------------------------------------------------------------*/
  157.  
  158. rx log